home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act3 / 00005.txt < prev    next >
Encoding:
Text File  |  1995-03-28  |  973 b   |  31 lines
  1. on resource
  2.   set blist = [1,2,3,4,5,6,7,8,9,10,11]
  3.   set nlist = []
  4.   repeat with xxx = 1 to many
  5.     set choice = random(count(blist))
  6.     set numbs = random(10)
  7.     set type = getat(blist,choice)
  8.     set the castnum of sprite (xxx + 3) = the number of cast ("bug"&type)
  9.     puppetsprite (xxx + 3), 1
  10.     set the visible of sprite (xxx + 3) to true
  11.     set bot = (type + 9) 
  12.     set the castnum of sprite bot = the number of cast ("bug"&type&"."&numbs)
  13.     addat(nlist,numbs)
  14.     puppetsprite bot, 1
  15.     set the visible of sprite bot to true
  16.     deleteat(blist,choice)
  17.   end repeat
  18.   
  19.   set many = many/2
  20.   repeat with xxx = 1 to many
  21.     set choice = random(count(blist))
  22.     set numbs = random(10)
  23.     set type = getat(blist,choice)
  24.     set bot = (type + 9) 
  25.     set the castnum of sprite bot = the number of cast ("bug"&type&"."&numbs)
  26.     addat(nlist,numbs)
  27.     puppetsprite bot, 1
  28.     set the visible of sprite bot to true
  29.     deleteat(blist,choice)
  30.   end repeat
  31. end